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Version ‘v04=-000' 


ARRAS AREALALASALLALALA LALLA ALAA SLES ARREARS EEE ERASE ESR ESE SEAR EARS SE OG 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND rite 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE _ WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF Tw ARE OR ANY OTHER 
COPIES THEREOF MAY rene BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
* 
& 
® 
® 
* 
® 
® 
® 
TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
* 
* 
& 
® 


eeeee ee ee eeene 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


AAA 
eaeneeen 


{* 


Cee eee Ree eA ERE E AERA AREER EERE ER A ARR REEAAEEAEETA EAE 


v03-004 eb ie Jake VanNoy 10-APR=-1984 
d UNBIND constants. 


v03-003 JLV0334 Jake VanNoy 28-F EB-1984 
Add new constants. 


v03-002 suvoce? Jake VanN 28-JUL-1983 
Added FLG$ symbols. include STSADEF. Add read 
verify and upline broadcast symbols. 


v03-001 MHB0091 Mark Bramhall 3-Mar-1983 
Added constant MAXMSG. 


MODULE $RTPADDEF; 
CONSTANT maxmsg EQUALS 1050; { Maximum Link data message size 
AGGREGATE AST_BLOCK STRUCTURE PREFIX ASTS$; 


PA BAAAAAAAARA 


STATE LONGWORD; /* AST ROUTINE (STATE) 

10SB QUADWORD ; /* TOSB 

OPCODE WORD; /* OPCODE (VMS RTT mode) 

OFFSET WORD; /* OFFSET (CTERM) 

BUFSIZ WORD; /* BUFFER SIZE (CTERM) 

ODATA_ _LONGWORD; /* QUTPUT DATA BUFFER (CTERM) 
cm ITMLST LONGWORD; /* ADDRESS OF ITEM LIST FOR READ 
AGGREGATE CTERM_FLAGS STRUCTURE PREFIX FLG$; 

CTERM bitfield mask; /* cterm protocol is running 


OOOO 
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CTRL_CY bitfield mask; /* flushing due to “C or “Y 
CTRL_O bitfield mask; /* Control 0 state 

LOGGING bitfield mask; /* Logging output 

VAXHOST bitfield mask; /* HOST is a VAX 

CTRLC bitfield mask; /* enable standard “C 


/* FLAGS DEFINED IN ‘'RTPADSLOG' 
AGGREGATE RTLOG_DBGFLAGS STRUCTURE PREFIX RTLOGS; 


BANNER bitfield mask; /* protocol banner 
TRACE bitfield mask; /* enable tracing to RTPADSTRACE 
END; 
® 
/* Event Flags 
® 
CONSTANT ( 
LINKEFN /* NET LINK 
) EQUALS 1 INCREMENT 1 PREFIX RTS TAG C; 


END_MODULE ; 
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MODULE SRTEDEF; 
AGGREGATE RTE_BLOCK STRUCTURE PREFIX RTES; 
CONSTANT bufien EQUALS 80 TAG ‘'c’'; { Maximum Prispee size 
flink ADDRESS; 


/* forward 
blink ADDRESS; ie backward Link 
size WORD unsigned; /* size of structure 
spare WORD; /* spece byte 
iosb /* 10S 


UADWORD unsigned; 
buf CHARACTER LENGTH bo; /* must match buflen above 
CONSTANT Length EQUALS . TAG "'c’’; 


END _MODULE ; 


mand 


/* 
/* 
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MODULE STSADEF; 


CONSTANT ( 
bin bind request 

unbind, unbind request 
rebind, rebind request 
accept. bind accept 
entermode, enter mode 
exitmode, exit mode 
confirm, confirm mode 
nomode, no mode 
data, — (cterm message) 
mode .t mode message 

) EQUALS 1 INCREMENT 1 PREFIX ‘'PROS'' TAG ‘'C”; 


AGGREGATE oob STRUCTURE PREFIX oob TAG ‘"'; 
Len exclude LONGWORD TAG ‘"’; /* Lengths are not used 


exclude LONGWORD TAG ‘"'; 
Len_include LONGWORD TAG ‘"’; 
include LONGWORD TAG ‘"'; 
len_abort LONGWORD TAG ‘"’; 
r ONGWORD TAG ‘“!; 
discard LONGWORD TAG oe /* discard output mask 
echo LONGWORD TAG ‘""; /* standard echo mask 
CONSTANT EQUALS . TAG ‘”’; 


END; 

/* 

a Unbind reason codes 
& 


CONSTANT ( 


badvers, { incompatible version 

noport, { no portal available 

user, { user requested unbind (logout) 
disconnect, { disconnect (setmode hangup) 
unused1, 

unused2, 

ores otocol er 


) EQUALS 1 INCREMENT 1 PREFIX Bm eet to TAG 
AGGREGATE cterm STRUCTURE PREFIX ctp$ ; /* cterm packet 
/* Up tu DATSIZE matches RTTDORIVER RBF header 


flink LONGWORD; /* forward Link 

blink LONGWORD ; /* backward Link 

size WORD; /* size of ofructure 

type BYTE; /* DYN. code (BUF 10) 

sparel BYTE; /* spare byte 

msgdat LONGWORD; /* message address 

usrbfr LONGWORD; /* user buffer 

Gotetze WORD; /* data size 

rp LONGWORD ; /* address of associated IRP 
ji LONGWORD; /* address of associated JIB 
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spare LONGWORD ; 
spare LONGWORD; 


Wheader = .; 
/* start of protocol message 


ro_msgtype BYTE; 
provtitl. BYTE: 


/* start of cterm data packet 


msgsize WORD; 
#header2 = .; 


msgtype BYTE; 
CONSTANT ( 
init 


start_rd, 
read data, 
out_Band, 
unread, 
clr_input, 
write, 
write_com, 
dis_state, 
read_char, 
char, 
check_inp, 
inp_count, 
inp_state, 
vmsqio, 
vms_brdcst, 


msgfields UNION; 


vms_readvfy ) 
EQUALS T INCREMENT 1 TAG *'c_mt"’; 
e 
he Remainder of block overlaid based on value of msgtype: 


/* spare for RTPAD? 
/* spare for RTPAD? 


/* Protocol message type 


/* Protocol f 


/* Length of first message 


/* message type 


nitiate 
tart Read 
ead Data 
eo 


lear Input 
rite 


Secs oozes 
> 
e 
w 


rite Completion 
iscard State 

ead Characteristics 
haracteristics 

heck Input 

nput Count 

a State 

MS specific Q10 

MS spec broadcast 
MS spec read verify 


PAOQAAAAAAASTAAAAAA 


<< OOWS 


LLEQLQQQ_QoxQ_oOQ_Qx_2_OLO OOO 
ZzrrrrtrtIrIrIrIrIrTIrII IIT 


F 
16-SEP-1984 16:46:45.10 Page 5 


<---> 
“<-> 
Qeoee 
geen 
weo=> 
“<-> 
<-> 
(eee 
feoore 
“==> 
€{s-e2> 
---> 
Q€eee 
flere 
<---> 
fee 


---> 


-_ 


ANMMMNMNNNNNNNNNNONNOnn 
Nw ee we eee 
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/* 
/* init message structure (H <---> S$) 
aw 


init STRUCTURE; 
in_flags BYTE; /* no flags defined 
in_version BYTE; /* protocol version number 
n_eco BYTE; /* ECO number for protocol 


n_mod : /* customer modification number 
in_revision CHARACTER LENGTH 8; /* software revision number 
in_parmtype BYTE; /* purpose of the following value 
in_parmva BYTE; /* byte count 

CONSTANT Len EQUALS . TAG ‘“c_in'’; /* Length of structure 


CONSTANT msglen EQUALS .-#header TAG "' ee Length of structure minus header 


CONSTANT prolen EQUALS .-#header2 TAG ‘'c ni’; /* Length of structure minus header 
END init; 


=) 


R] 
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/* 
. start read and read verify structure (H <--> S) 
ers fd STRUCTURE; 


refle s _over Lay union fill; “Fags | for 
ags gheracter length. t TAG “— 2 #83 
+H “fteg bits structure fil 
Sr -undertlo Bl BITFIELD lengtn 2; /t = 
aa S oo 
bel, f -- 
terminate ) { -- 
EQUALS 0 INCREMENT 1 TAG ‘‘m_sr'’; 
sr_purge BITFIELD MASK; /r - 
sr_format BITFIELD MASK; /t- 
sr_trmvert BITFIELD MASK; /t - 
sr aigntinue BITFIELD MASK; /t - 
s a %3 
sr_cvtlow BITFIELD LENGTH 2 /t - 
CONSTANT ( 
no_cvt, { -- 
po Naa ° ft -- 


EQUALS “O OTNCREMENT 1 TAG *‘c_sr*’ 
CON 
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unread 
bytes of flags 
underflow handling 


ignore under f Low 
ring bell on underflow 
terminate on underflow 


purge 3 hd ahead 
formatting flag 
terminate on vertical 
continuation read 


raise input 
use yy ge characteristic 


none this read only 
Normal lower to upper 


STANT no_cvt EQUALS cEpsc. sr_no_cvta#shift TAG ‘'m ae 
CONSTANT none_only EQUALS ctp$c_sr_none sonlyarshift TAG “Fh ae 


CONSTANT lowtoup EQUALS ctp$c_sr_lowtoupa 


@shift = 

sr control pep teseue LENGTH 3; /t = 
CONSTANT (¢ 

no_ Ae { -- 
u_and_r { -- 
e e { om 
allbutx, { -- 
) © = 


all 
EQUALS QO INCREMENT 1 TAG ‘'c_sS 
CONS 


shift TAG ‘'m_ of 
disable control 


no centres characters disabled 
“U and “R disabled 

all edit type characters 
or but XON/XOFF 


T no_ctrl EQUALS ctpSe sr_no_ctria#shift TAG ‘'m_sr’'; 
CONSTANT u_and_r EQUALS ctp$c_sr_u_and_ra#shift TAG ‘'‘m-sr''; 
CONSTANT edit ~ EQUALS ctpse_ srieditaMshift = TAG ‘'m-sr''; 
CONSTANT allbutx EQUALS ctp$c_sr_allbutxa@shift TAG ‘'m-sr''; 


CONSTANT a 
sr_noecho iit tay MASK; 


sr_trmecho BITFIELD MASK; /t- 
sretined | BITFIELD MASK; /t - 
s 
sr_term set BITFIELD LENGTH 2; /t - 
CONSTANT ( 
prevtern, os 


pat oh Sd 
EQUALS 0 INCREMENT 1 TAG ‘'c_sr’’ 


Lt EQUALS ctp$c_ srial lasshite TAG ‘'m-sr'’; 


no echo read 
terminator echo 
read timeout 


termination set 
use previous read terminators 


use this read terminators 
use normal terminators 


CONSTANT prevterm EQUALS ctBec_s Sr _prevtermasshift TAG meses 
CONSTANT thisterm EQUALS ctp$c_sr_thisterma#shift TAG mest, ’ 
CONSTANT noraterm EQUALS ctp$c_ =S1_normtermaéshift TAG ‘'m 


sr_noescape BITFIELD MASK; jt - 
sr_escape BITFIELD MASK: /t - 


don't recognize escipe * 
recognize escape 
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/* VAS specif 


sr_noedit 
sr_norecall 


end sr_flag_bi 
end sr_flags_sve 


end TWO_READS; 
END start_rd; 
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ic bits follow 


BITFIELD MASK; /t- 
BITFIELD MASK; /t- 


ts; 
rlay; 


isable editing 
isable recall 


aa 


sr_max_len WORD; /* max Length of read 
sr_end_data WORD; /* end of data in read buffer 
sr_timeout WORD; /* timeout value 
sr_end_prmt WORD; /* end of prompt 
sr_str_disp WORD; /* start of display 
sr_lo_water WORD; /* low water mark 
TWO_READS structure; 
TWO_READS_OVERLAY union fill; 
sr_term CHARACTER LENGTH 1; /* termination set (byte counted field) 
/* read data starting position (after term set) 
CONSTANT Len EQUALS . TAG ‘‘c_sr’’; /* length of structure 
CONSTANT msglen EQUALS .-#header TAG “cu sr'';/* length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘'c_sr'';/* Length of structure minus header 
READ_VERIFY structure ; 
sr2_altechsize WORD UNSIGNED; /* alt echo size 
sré_picstrsize WORD UNSIGNED; /* picture string size 
sr2_editflags WORD UNSIGNED; /* steps 
_fillchar WORD UNSIGNED; /* fill characters 
sré_term CHARACTER LENGTH 1; /* terminator set 
CONSTANT Len EQUALS . TAG “‘c_sr2"’; /* Length of structure 
CONSTANT msglen EQUALS .-#header TAG ‘'c_sr2''; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_sr2’'; /* Length of structure minus header 
end READ_VERIFY; 
end TWO READS_OVERLAY; 
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mites 

Fat ags 
ores 
a. 


/e 
. read data structure (H <--= S) 


read_data STRUCTURE; 
fd_f soverlay u 4 bo atts 


g-bits: str fh nis -* "fill: 
m code “BITFIELD LENGTH 4; 


abstoken, 
vert_cng, 
LineBrk, 
ivoneres 
oo 


erun ) 
$°0 INCREMENT 1 TAG “‘m_rd’'; j 


EQUAL 
rd_mor atte BITFIELD MASK; 
end fd_flag_bits; 
end rd_flags worl et 
rd_lo_water 
rd_vert_cng BYTE; 
rd_curs_pos BYTE: 


rd_ term_ pos 


rd_data” 


CONSTANT Len 
CONSTANT msglen EQUALS .-#header TAG fe 
CONSTANT prolen EQUALS .-#header2 TAG ‘ 


END read_data; 


WORD; 
CHARACTER LENGTH 0; 
EQUALS . TAG ‘‘c_rd"’; 


/* Flags for 


je 
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unread 


completion code 


normal terminator 

valid escape 

invalid escape 

out of ban 

input buffer full 

read timed out 

araee request received 
under f Low 

absentee token 

reritees postition change 
line brea 

frame error 

parity error 

receiver over-run 


more data in typeahead 


/* low water 

/* vertical change since read started 
/* cursor position from EOL 

/* position of coreinater 
/* start of read data 


rd’; 
rd”; 


/* Length of structure 


/* Length of structure minus header 
/* Length of structure minus header 
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/* 
oS out of band structure (H <== S$) 
out_band STRUCTURE; 
ob_flags_overlay union fill; /* Flags for unread 


db_ flags byte unsigned; 
ob flag bits structure fill; 


Sb_lifiebrk BITFIELD MASK; /* = Line break occured 
end ob_flag_bits; 
end ob_flags_dverlay; 
ob_char BYTE; /* one byte of data 
CONSTANT Len EQUALS . TAG ‘‘c_ob"’; /* length of structure 


CONSTANT msglen EQUALS .-#header TAG “c_ob''; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_ob''; /* Length of structure minus header 


END out_band; 
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/* 
-. unread structure (H --=> S) 


unread STRUCTURE; 


ur_flags_overlay union fill; /* Flags for unread 
ur_ flags _— unsigned; 
ur_flag_bits structure fill; 
ur_cond BITFIELD MASK; /* = unread conditional 
end ur_flag_bits; 


end ur_flags_dverlay; 


CONSTANT Len EQUALS . TAG ‘‘c_ur"’; , /* length of structure 

CONSTANT msglen EQUALS .-#header TAG “cur''; /* Length of structure minus header 

CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_ur''; /* Length of structure minus header 
END unread; 
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/* 
- clear input structure (H <---> S$) 


clr input STRUCTURE; 
ci_flags BYTE; /* no flags defined 

CONSTANT Len EQUALS . TAG “‘c_ci’’; _ /* Length of structure 

CONSTANT msglen EQUALS .-#header TAG “'c_ci''; /* Length of structure minus header 

CONSTANT prolen EQUALS .-#header2 TAG ‘‘C_ci''; /* Length of structure minus header 


END clr_input; 


N 
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/* 
a write structure (H ===> S$) 


rite STRUCTURE; 
rafle s_overlay union fill; /* Flags for 
ags word unsigned; 
wt ~flag_bits otrus ure 


ur_lock BITFIELD (inci 2; jee 
CONSTANT ( 
noaction, -- 
before, -- 
befaft, -- 
befaftre ) -- 
EQUALS 0 INCREMENT 1 TAG ‘“‘m_wr'’; 
wr_newline BITFIELD MASK; - 
wr_discard BITFIELD MASK; / - 
wr_begin BITFIELD MASK; /t - 
wr_en BITFIELD MASK; *- 
#shift = *; 
wr rotis BITFIELD LENGTH 2 /t - 
CONSTANT (¢ 
no_fix, { -- 
neil inecnt, at -- 


Equals ‘0 INCREMENT 1 TAG ‘'c_w 
CONSTAN 


write 


Locking 


no locking action 

lock before, leave locked 

lock before, unlock after 

lock before, unlock after, redisplay 


VMS mat? Neate newline modifier 
cones 
sogrngsne et of write 
of wri 


prefix code 
no prefix 


new Line count 
character prefix 


no_fix EQUALS ae wr_no_fixa#shift TAG "'m 
CONSTANT newl inecnt EQUALS ctp$c_wr ~newlinecnta#shift Pras, ‘m we''s 
CONSTANT char EQUALS ctp$c_wr_chara#shift TAG ' 


wr_postfix BITFIELD LENGTH 2; 7* - 
wr_status BITFIELD MASK; /« - 


postfix code 
return status 


wr transparent BITFIELD MASK; /* = write passall 


END wr_flag_bits 


END wr_flags_ sealiy 

wr_pretix /* prefix value 
wr “postfix BYT /* postfix value 
wr_data CHARACTER LENGTH 0; /* start of data 


CONSTANT Len EQUALS . TAG ‘‘c_wr'’; 
CONSTANT msglen EQUALS ‘-#header TAG " nn, 9 


‘ _tength of structure 


length of structure minus header 


CONSTANT prolen EQUALS .-#header2 TAG ‘‘C_wr''; «A length of structure minus header 


END write; 


| 1 
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/* 
A write completion structure (H <--= 5S) 


write_com STRUCTURE; 
we_flags_overlay union fill; /* Flags for unread 
we_flags byte unsigned; 
we_flag_bits structure fill; 
we discard BITFIELD MASK; /* = discard state 
end we _flag_bits; 
end we_flags_dverlay; 


wc_horpos WORD; /* horizontal position 
we_verpos WORD; /* vertical position 
CONSTANT Len EQUALS . TAG ‘‘c_we'’; /* Length of structure 


CONSTANT msglen EQUALS .-#header TAG ‘'c_we''; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_we''; /° Length of structure minus header 


END write_com; 


. 
e+e ee eee eeeeeeeeeeeeee se 


+ 


_ 
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/* 
fa discard state structure (H <--=- S) 


dis_state STRUCTURE; 
ds_flags_overlay union fill; 
s_flags yte unsigned; 
ds flag_b s structure fill; 
ds_discard BITFIELD MASK; 
end ur_flag_bits; 
end ur_flags_Sverlay; 


CONSTANT Len 


EQUALS . TAG ‘'c_ds"’; 


1 
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/* Flags for unread 


/* = discard state 


/* length of structure 


CONSTANT msglen EQUALS .-#header TAG "“cds''; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_ds’'; /* Length of structure minus header 


END dis_state; 


1 
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/* 
i read characteristics structure (H ---> S) 
read_char STRUCTURE; 
c_flags 


* YTE; /* no flags defined 
rc_selector WORD; /* selector start position 
CONSTANT Len EQUALS . TAG “‘c_rc'’; /* Length of structure 


CONSTANT msglen EQUALS .-#header TAG ‘'c_rc''; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘C_rc’'; /* Length of structure minus header 


END read_char; 


+ 


Soe 


1 
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/* 
ye characteristics structure (H <---> S$) 


char STRUCTURE; 
ch_ flags BYTE; /* no flags defined 


ch_param WORD; /* start of characteristics 
ch_value CHARACTER LENGTH 0; /* value 
CONSTANT Len EQUALS . TAG “‘c_ch"’; /* Length of structure 


CONSTANT msglen EQUALS .-#header TAG "“cch''; /* length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_ch'; /* Length of structure minus header 


/* characteristics selector types 


CONSTANT ( 
phys icol. 
ogical, 


cterm 
) EQUALS 0 INCREMENT 1 PREFIX ‘'CHS'’ TAG C; 
/* characteristics selectors, type = physical 


CONSTANT ( 
in_speed, 
out_speed, 
char_size, 
parity_enable, 
parity_type, 
modem_present, 
autobaud, 
manage_guar, 
sweharl, 
swchare, 
eightbit, 
manage_ena 
) EQUALS 1 INCREMENT 1 PREFIX ‘'CHS"’ TAG ‘'C_PH"'; 


/* characteristics selectors, type = logical 


CONSTANT ( 
mode_writing, 
term_bits, 
term_type, 
output_ flow, 
page_stop, 
flow char_pass, 


Loss_notif, 
Line width 

page~ length, 
stop_length, 


l 
Lf fill, 
hor tab 
vert_tab, 


| 
— 


dT 


20 


30 


40 


10 


LJ 
—_ 


F 4 
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7-1 


form_feed 
) EQUALS 1 INCREMENT 1 PREFIX ‘'CHS'' TAG "'C_LG"; 


/* characteristics selectors, type = cterm 


es ( 

bmp input, z 
ar_att, /* see tty_attributes, etc. below 
ctrlo_ ~pass. 

raise: nput, 

normal echo, 

input_é@sc, 

output_esc, 

input. count, 

auto_prompt, 


BeSe Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se eee se 


error_proce 
y EQUALS 1 TACREMENT 1 PREFIX "'CHS'’ TAG "'C_CT"'; 
CONSTANT (¢ e 
even, 
odd, WR 
clear, /* no support for set or clear on VMS 


set 
) EQUALS 1 INCREMENT 1 PREFIX ‘'CHS'' TAG C_PARITY; 


tty, ig Bie STRUCTURE; 
“ch_kno BITFIELD MASK; 
ch_ “scope BITFIELD MASK; 
end cy, attributes; 


oob_handling STRUCTURE; 
ch_oo bitfield mask length 2; /* out of band handling 
ch_ bitfield Benns im include character 
ch_d bitfield m * discard cute 
chige bitfield — length 2; fs echo contro 

f bitfield mask; /* special enable 
end oo8 handling; 

oob_data STRUCTURE 

_char BYTE; /* data character 
ch_mask BYTE; /* mask for attributes 
ch-attr BYTE; /* attributes 

end oob_data; 

CONSTANT ( { = out of band flags 
cancel, { -- cancel previous 0 
iclear, { -- Teeediate clear 1 
dclear { -- deferred clear ¢ 
hello ve nes. ™™ Rolle 

EQUALS 0 INCREMENT 1 TAG ‘'c_ch"’; 

CONSTANT ( echo control 
echonone, =- don't echo 
echoself, -- echo character as self 
echostandard, -- standard echo 


RTDEF .SOL;1 


oghgbet> ) 
EQUALS 0 INCREMENT 1 TAG ‘‘c_ch"’; 
END char; 


1 
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{ == echo both 


=] 
—- 


ase 


1 
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/*e 
oe check input structure (H <-=-=> S$) 


check inp STRUCTURE; 
ck_flags BYTE; /* no flags defined 


CONSTANT Len = EQUALS . TAG “‘c_ck’’; ,_ /* length of structure 
ONSTANT msglen EQUALS .-#header TAG ¢.ck''; /* length of structure minus header 
ONSTANT prolen EQUALS .-#header2 TAG ‘‘C_ck'; /* Length of structure minus heade: 


END check_inp; 


- 
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/* 
: input count structure (H <--= S$) 
inp.sount STRUCTURE; 
cfl 


ags BYTE; /* no flags defined 
ic_count WORD; /* input count 
CONSTANT Len EQUALS . TAG ‘“c_ic’’; /* Length of structure 


CONSTANT msglen EQUALS .-#header TAG ‘‘c_ic'’; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘C_ic’'; /* Length of structure minus header 


END inp_count; 


RTDEF .SDL;1 


je 
. input state structure (H <--- $) 


inp “emt STRUCTURE; 
flags gover lay union fill; 
js. flags byte unsigned; 
s flag bits serve ure fill; 
Ts nonzero, BITFIELD MASK; 
e Ts_flag_bits; 
7 “ttegs- Overlay: 


CONSTANT Len = EQUALS . TAG "‘c_is"’; 
CONSTANT msglen EQUALS .-#header Tag ** 


CONSTANT prolen EQUALS .-#header2 TAG ‘T_ 


END inp_state; 


/* 
‘ VMS Q10 REQUEST (H ===> S) 


vmsqio STRUCTURE; 
vms_ flags _over Lay union fill; 
vas_ flags ore unsigned; 
vms_flag_bits st rus re fill; 
vis_useiosb BITFIELD MASK; 
vms_readlen BITFIELD MASK; 
end vms_flag_bits; 
end vms_flags_overlay; 
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/* Flags for unread 


/* = count change to non-zero 


,/*_ length of structure 
is’; /* length of structure minus header 
is‘; /* Length of structure minus header 


/* Flags for unread 


/* use iosb to determine length 
/* = read-type iosb buffer Length 


vms_reqid LONGWORD ; /* qio request id 
vmsfields UNION; 
VMSREQ STRUCTURE; /* request 
vms_ func WORD; /* qio function code 
vas“plen WORD; /* these four are repeated... 
vms_pcode WORD; /* for each parameter 
vms_pf lags STRUCTURE TAG W; /* 
vms_ref BITFIELD MASK; /t- gece by potergnce 
vms_item BITFIELD MASK: /* = item List or Pn 
vms_buffer BITFIELD /t- eH is return buffer 
vms_ fill BITFIELD LENGTH 16-*; /* = fill to 1 word 
END” vms ~Pflags 
vms_pdata HARACTER LENGTH 0; /* value 
CONSTANT Len EQUALS . TAG ‘‘c_vms*’; /* length of structure 


CONSTANT msglen EQUALS ;-#header TAG "'c_vms" , /* length of structure minus header 


VMSRESP STRUCTURE; 
vms_iosb 
vms_rdata 

END VMSRESP; 


END vmsfields; 


UADWORD; 
CHARACTER LENGTH 0; 


mie prolen EQUALS .-#header2 TAG feN vas"; /* Length of structure minus header 


/* iosb 
/* start of data 


a eeretece OO OS OS OO SS 8S OS OS OS FS HS HS FS HS HS FS FES ES FS RFS FEES FEE ESTE FSFE FS SESS ES SCS *S FSFE SSR SCS “SHS SD 
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es 
°o 
rod 
Cc 
7 
ws 
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/* 
. upline broadcast (H <--= $) 
broadcast STRUCTURE; 
r_flags 


flag WORD UNSIGNED; /* no flags defined 
br_msgcode WORD UNSIGNED; /* mailbox message code 
r_unitnum WORD UNSIGNED; /* unit number 
br_devname CHARACTER LENGTH 16; /* device name 
br_msglen WORD UNSIGNED; /* length of text 
br-msgtxt CHARACTER LENGTH 0; /* start of text 
CONSTANT Len EQUALS . TAG “‘c_br’’; /* Length of structure 


e 
CONSTANT msglen EQUALS .-#header TAG “cbr; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_br''; /* Length of structure minus header 


END broadcast; 
END msgfields; /* end of protocol messages 
END cterm; 
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AGGREGATE VMSQIO STRUCTURE PREFIX vms$; 


plen WORD; /* these four are repeated... 
pflags WORD; Gt = se~ 

pcode WORD; /* +++ for each parameter 
pdata CHARACTER LENGTH 0; /* value 


END; /* VMSQIO 
END_MODULE ; 


——eSSSSSSSeSSSSSeSeeseSe 


SE EQUIPMENT CORPORATION 


0 


NTIAL -AND PROPRIETARY 


